﻿Imports System.Data
Imports System.Data.SqlClient
Partial Class Sistema_ModuloComplementario
    Inherits System.Web.UI.Page
    Dim editar As Boolean
    Dim Edad As Integer
    Dim mensaje As String
    Dim Exepcion As String
    Dim NumeroError As Integer
    Public iderespuesta As Integer
    Dim fechanacimiento As Date
    Dim fechavisita As Date
    Public mesescumplidos As Integer


    Dim actualizar As Integer
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
       
        If Page.IsPostBack = False Then
            If String.IsNullOrEmpty(Request.QueryString.Item("idPersona")) = False Then
                hdIdPersona.Value = Request.QueryString.Item("idPersona")
                hdIdvisita.Value = Request.QueryString.Item("Idvisita")
                hdIdhogar.Value = Request.QueryString.Item("Idhogar")
                EncabezadoModulo1.idPersona = Request.QueryString.Item("idPersona")
                EncabezadoModulo1.idVisita = Request.QueryString.Item("Idvisita")
            End If
            llenarCombos()
            traeredad()

            Using bd As New BdHogaresDataContext
                Dim a = From i In bd.Web_ModuloSaludComplementarios
                          Where i.idvisita = hdIdvisita.Value And i.idPersona = hdIdPersona.Value
                          Select i.idPersona
                Try
                    actualizar = IsDBNull(a.First)
                    traerDatos(hdIdvisita.Value)
                Catch
                    If Not Edad > 10 Then
                        Dim c = (From i In bd.Web_ModuloSaludComplementarios
                                Where i.idPersona = hdIdPersona.Value
                                Select CType(i.idvisita, Integer?)).Max
                        guardar(True)
                        If IsNothing(c) = False Then
                            traerDatos(c)
                            lblinformacion.Text = "SE HA CARGADO LA INFORMACIÓN DE LA VISITA ANTERIOR A MODO DE VERIFICACIÓN, DEBE MODIFICAR LOS DATOS QUE HAN VARIADO Y HACER CLIC EN GUARDAR"
                        End If

                    End If
                End Try
            End Using
        End If


        Using bd As New BdHogaresDataContext
            Dim a = From i In bd.Web_ModuloSaludComplementarios
                      Where i.idvisita = hdIdvisita.Value And i.idPersona = hdIdPersona.Value
                      Select i.idRespuesta
            If a.Count > 0 Then
                iderespuesta = a.First
            End If
        End Using
        listas()
        traermeses()
    End Sub
    Sub listas()
        Dim rbl As RadioButtonList
        rbl = CType(rbBCG, RadioButtonList) : For Each li As ListItem In rbl.Items : li.Attributes.Add("onclick", "esquemavacunacion()") : Next
        rbl = CType(rbHepatitisBRN, RadioButtonList) : For Each li As ListItem In rbl.Items : li.Attributes.Add("onclick", "esquemavacunacion()") : Next
        rbl = CType(rbDPTPD, RadioButtonList) : For Each li As ListItem In rbl.Items : li.Attributes.Add("onclick", "esquemavacunacion()") : Next
        rbl = CType(rbHaemophilusPD, RadioButtonList) : For Each li As ListItem In rbl.Items : li.Attributes.Add("onclick", "esquemavacunacion()") : Next
        rbl = CType(rbHepatitisBPD, RadioButtonList) : For Each li As ListItem In rbl.Items : li.Attributes.Add("onclick", "esquemavacunacion()") : Next
        rbl = CType(rbVOPPD, RadioButtonList) : For Each li As ListItem In rbl.Items : li.Attributes.Add("onclick", "esquemavacunacion()") : Next
        rbl = CType(rbDPTSD, RadioButtonList) : For Each li As ListItem In rbl.Items : li.Attributes.Add("onclick", "esquemavacunacion()") : Next
        rbl = CType(rbHaemophilusSD, RadioButtonList) : For Each li As ListItem In rbl.Items : li.Attributes.Add("onclick", "esquemavacunacion()") : Next
        rbl = CType(rbHepatitisBSD, RadioButtonList) : For Each li As ListItem In rbl.Items : li.Attributes.Add("onclick", "esquemavacunacion()") : Next
        rbl = CType(rbVOPSD, RadioButtonList) : For Each li As ListItem In rbl.Items : li.Attributes.Add("onclick", "esquemavacunacion()") : Next
        rbl = CType(rbDPTTD, RadioButtonList) : For Each li As ListItem In rbl.Items : li.Attributes.Add("onclick", "esquemavacunacion()") : Next
        rbl = CType(rbHaemophilusTD, RadioButtonList) : For Each li As ListItem In rbl.Items : li.Attributes.Add("onclick", "esquemavacunacion()") : Next
        rbl = CType(rbHepatitisBTD, RadioButtonList) : For Each li As ListItem In rbl.Items : li.Attributes.Add("onclick", "esquemavacunacion()") : Next
        rbl = CType(rbVOPTD, RadioButtonList) : For Each li As ListItem In rbl.Items : li.Attributes.Add("onclick", "esquemavacunacion()") : Next
        rbl = CType(rbInfluenzaPD, RadioButtonList) : For Each li As ListItem In rbl.Items : li.Attributes.Add("onclick", "esquemavacunacion()") : Next
        rbl = CType(rbInfluenzaSD, RadioButtonList) : For Each li As ListItem In rbl.Items : li.Attributes.Add("onclick", "esquemavacunacion()") : Next
        rbl = CType(rbTripleViralDU, RadioButtonList) : For Each li As ListItem In rbl.Items : li.Attributes.Add("onclick", "esquemavacunacion()") : Next
        rbl = CType(rbFiebreAmarillaDU, RadioButtonList) : For Each li As ListItem In rbl.Items : li.Attributes.Add("onclick", "esquemavacunacion()") : Next
        rbl = CType(rbDPTPR, RadioButtonList) : For Each li As ListItem In rbl.Items : li.Attributes.Add("onclick", "esquemavacunacion()") : Next
        rbl = CType(rbVOPPR, RadioButtonList) : For Each li As ListItem In rbl.Items : li.Attributes.Add("onclick", "esquemavacunacion()") : Next
        rbl = CType(rbDPTSR, RadioButtonList) : For Each li As ListItem In rbl.Items : li.Attributes.Add("onclick", "esquemavacunacion()") : Next
        rbl = CType(rbVOPSR, RadioButtonList) : For Each li As ListItem In rbl.Items : li.Attributes.Add("onclick", "esquemavacunacion()") : Next
        rbl = CType(rbSRPR, RadioButtonList) : For Each li As ListItem In rbl.Items : li.Attributes.Add("onclick", "esquemavacunacion()") : Next
        rbl = CType(rbFiebreamarillaRef, RadioButtonList) : For Each li As ListItem In rbl.Items : li.Attributes.Add("onclick", "esquemavacunacion()") : Next
        rbl = CType(rbesquemavacunacion, RadioButtonList) : For Each li As ListItem In rbl.Items : li.Attributes.Add("onclick", "return false;") : Next


        rbl.Dispose()
        rbl = Nothing
    End Sub
    Sub traermeses()
        Try
            Using bd As New BdHogaresDataContext
                Dim a = From i In bd.Web_Caracterizacionpersonas
                          Where i.idPersona = hdIdPersona.Value
                          Select i.fechadenacimiento
                fechanacimiento = a.First()
            End Using

            Using db As New BdHogaresDataContext
                Dim a = From i In db.Web_Visitas
                        Where (i.idHogar = hdIdhogar.Value And i.idvisita = hdIdvisita.Value)
                        Select i
                fechavisita = a.FirstOrDefault.FechaDiligenciamiento.ToString
            End Using

        Catch ex As Exception

        End Try

        mesescumplidos = DateDiff("m", fechanacimiento, fechavisita)
        hdmesescumplidos.value = mesescumplidos
    End Sub
    Sub traeredad()
        'Using bd As New BdHogaresDataContext
        'Dim a = From i In bd.Web_Caracterizacionpersonas
        '          Where i.idPersona = hdIdPersona.Value
        '          Select i.edadañoscumplidos
        'Edad = a.First()

        'Dim b = (From d In bd.Web_Caracterizacionpersonas
        '        Where d.idPersona = hdIdPersona.Value
        '        Select d.fechadenacimiento).FirstOrDefault
        'Dim c = (From d In bd.Web_Visitas
        '        Where d.idvisita = hdIdvisita.Value
        '        Select d.FechaDiligenciamiento).FirstOrDefault



        Try
            Using bd As New BdHogaresDataContext
                Dim a = From i In bd.Web_Caracterizacionpersonas
                          Where i.idPersona = hdIdPersona.Value
                          Select i.fechadenacimiento
                fechanacimiento = a.First()
            End Using

            Using db As New BdHogaresDataContext
                Dim a = From i In db.Web_Visitas
                        Where (i.idHogar = hdIdhogar.Value And i.Visita = "Levantamiento de información")
                        Select i
                fechavisita = a.FirstOrDefault.FechaDiligenciamiento.ToString
            End Using

        Catch ex As Exception

        End Try

        Dim anios As Integer = DateDiff(DateInterval.Year, fechanacimiento, fechavisita)
        If (fechavisita.Month < fechanacimiento.Month Or (fechavisita.Month = fechanacimiento.Month And fechavisita.Day < fechanacimiento.Day)) Then
            anios -= 1
        End If


        Edad = anios

        'SAMUEL -- CAMBIO DE RANGO DE EDAD A 5
        'If Edad > 10 Then
        If Edad > 5 Then
            Label1.Visible = True
            Button1.Visible = True
            PanelEdicion.Visible = False
        End If

        'End Using
    End Sub
    Sub llenarCombos()
        Using cnn As New SqlConnection(ConfigurationManager.ConnectionStrings("CNNdb").ConnectionString)
            cnn.Open()
            LlenarItems(rbBCG, "sino", cnn)
            LlenarItems(rbHepatitisBRN, "sino", cnn)
            LlenarItems(rbDPTPD, "sino", cnn)
            LlenarItems(rbHaemophilusPD, "sino", cnn)
            LlenarItems(rbHepatitisBPD, "sino", cnn)
            LlenarItems(rbVOPPD, "sino", cnn)
            LlenarItems(rbDPTSD, "sino", cnn)
            LlenarItems(rbHaemophilusSD, "sino", cnn)
            LlenarItems(rbHepatitisBSD, "sino", cnn)
            LlenarItems(rbVOPSD, "sino", cnn)
            LlenarItems(rbDPTTD, "sino", cnn)
            LlenarItems(rbHaemophilusTD, "sino", cnn)
            LlenarItems(rbHepatitisBTD, "sino", cnn)
            LlenarItems(rbVOPTD, "sino", cnn)
            LlenarItems(rbInfluenzaPD, "sino", cnn)
            LlenarItems(rbInfluenzaSD, "sino", cnn)
            LlenarItems(rbTripleViralDU, "sino", cnn)
            LlenarItems(rbFiebreAmarillaDU, "sino", cnn)
            LlenarItems(rbDPTPR, "sino", cnn)
            LlenarItems(rbVOPPR, "sino", cnn)
            LlenarItems(rbDPTSR, "sino", cnn)
            LlenarItems(rbVOPSR, "sino", cnn)
            LlenarItems(rbSRPR, "sino", cnn)
            LlenarItems(rbFiebreamarillaRef, "sino", cnn)
            LlenarItems(rbesquemavacunacion, "sino", cnn)
            cnn.Close()
        End Using
    End Sub
    Sub LlenarItems(ByVal objeto As Object, ByVal pregunta As String, ByRef cnn As SqlConnection)
        If pregunta = "sino" Then : objeto.Items.Add(New ListItem("Sí", 1)) : objeto.Items.Add(New ListItem("No", 2)) : Exit Sub : End If
        Using drDatos As SqlDataReader = Funciones.TraerListas(pregunta, cnn)
            With objeto
                .DataSource = drDatos
                .DataTextField = "nombreopcion"
                .DataValueField = "valoropcion"
                .DataBind()
            End With
        End Using
    End Sub

#Region "cargar Datos"

    Sub traerDatos(idVisita As Integer) 'carga los controles con los datos de la bd
        Using bd As New BdHogaresDataContext
            Dim a = From i In bd.Web_ModuloSaludComplementarios
                      Where i.idvisita = idVisita And i.idPersona = hdIdPersona.Value
                      Select i
            Dim Datos As New Web_ModuloSaludComplementario
            Datos = a.FirstOrDefault()
            rbBCG.SelectedValue = IIf(IsDBNull(Datos.AntituberculosaBCG), 0, Datos.AntituberculosaBCG)
            rbHepatitisBRN.SelectedValue = IIf(IsDBNull(Datos.HepatitisBReciennacido), 0, Datos.HepatitisBReciennacido)
            rbDPTPD.SelectedValue = IIf(IsDBNull(Datos.DPTPrimera), 0, Datos.DPTPrimera)
            rbHaemophilusPD.SelectedValue = IIf(IsDBNull(Datos.HaemophilusPrimera), 0, Datos.HaemophilusPrimera)
            rbHepatitisBPD.SelectedValue = IIf(IsDBNull(Datos.HepatitisBPrimera), 0, Datos.HepatitisBPrimera)
            rbVOPPD.SelectedValue = IIf(IsDBNull(Datos.VOPPrimera), 0, Datos.VOPPrimera)
            rbDPTSD.SelectedValue = IIf(IsDBNull(Datos.DPTSegunda), 0, Datos.DPTSegunda)
            rbHaemophilusSD.SelectedValue = IIf(IsDBNull(Datos.HaemophilusSegunda), 0, Datos.HaemophilusSegunda)
            rbHepatitisBSD.SelectedValue = IIf(IsDBNull(Datos.HepatitisBSegunda), 0, Datos.HepatitisBSegunda)
            rbVOPSD.SelectedValue = IIf(IsDBNull(Datos.VOPSegunda), 0, Datos.VOPSegunda)
            rbDPTTD.SelectedValue = IIf(IsDBNull(Datos.DPTTercera), 0, Datos.DPTTercera)
            rbHaemophilusTD.SelectedValue = IIf(IsDBNull(Datos.HaemophilusTercera), 0, Datos.HaemophilusTercera)
            rbHepatitisBTD.SelectedValue = IIf(IsDBNull(Datos.HepatitisBTercera), 0, Datos.HepatitisBTercera)
            rbVOPTD.SelectedValue = IIf(IsDBNull(Datos.VOPTercera), 0, Datos.VOPTercera)
            rbInfluenzaPD.SelectedValue = IIf(IsDBNull(Datos.InfluenzaPrimera), 0, Datos.InfluenzaPrimera)
            rbInfluenzaSD.SelectedValue = IIf(IsDBNull(Datos.InfluenzaSegunda), 0, Datos.InfluenzaSegunda)
            rbTripleViralDU.SelectedValue = IIf(IsDBNull(Datos.SRPUnica), 0, Datos.SRPUnica)
            rbFiebreAmarillaDU.SelectedValue = IIf(IsDBNull(Datos.FAUnica), 0, Datos.FAUnica)
            rbDPTPR.SelectedValue = IIf(IsDBNull(Datos.DPTPrimerRefuerzo), 0, Datos.DPTPrimerRefuerzo)
            rbVOPPR.SelectedValue = IIf(IsDBNull(Datos.VOPPrimerRefuerzo), 0, Datos.VOPPrimerRefuerzo)
            rbDPTSR.SelectedValue = IIf(IsDBNull(Datos.DPTSegundoRefuerzo), 0, Datos.DPTSegundoRefuerzo)
            rbVOPSR.SelectedValue = IIf(IsDBNull(Datos.VOPSegundoRefuerzo), 0, Datos.VOPSegundoRefuerzo)
            rbSRPR.SelectedValue = IIf(IsDBNull(Datos.SRPRefuerzo), 0, Datos.SRPRefuerzo)
            rbFiebreamarillaRef.SelectedValue = IIf(IsDBNull(Datos.FARefuerzo), 0, Datos.FARefuerzo)
            rbesquemavacunacion.SelectedValue = IIf(IsDBNull(Datos.rbesquemavacunacion), 0, Datos.rbesquemavacunacion)
            txtObsSaludSexual.Text = IIf(IsDBNull(Datos.ObsGenerales), "", Datos.ObsGenerales)
        End Using

    End Sub
#End Region
#Region "Metodos"
    Sub guardar(ByVal primeravez As Boolean) 'Guarda los datos en la bd
        Dim Datos As New Web_ModuloSaludComplementario
        Datos.AntituberculosaBCG = IIf(rbBCG.SelectedValue = Nothing, 0, rbBCG.SelectedValue)
        Datos.HepatitisBReciennacido = IIf(rbHepatitisBRN.SelectedValue = Nothing, 0, rbHepatitisBRN.SelectedValue)
        Datos.DPTPrimera = IIf(rbDPTPR.SelectedValue = Nothing, 0, rbDPTPR.SelectedValue)
        Datos.HaemophilusPrimera = IIf(rbHaemophilusPD.SelectedValue = Nothing, 0, rbHaemophilusPD.SelectedValue)
        Datos.HepatitisBPrimera = IIf(rbHepatitisBPD.SelectedValue = Nothing, 0, rbHepatitisBPD.SelectedValue)
        Datos.VOPPrimera = IIf(rbVOPPD.SelectedValue = Nothing, 0, rbVOPPD.SelectedValue)
        Datos.DPTSegunda = IIf(rbDPTSD.SelectedValue = Nothing, 0, rbDPTSD.SelectedValue)
        Datos.HaemophilusSegunda = IIf(rbHaemophilusSD.SelectedValue = Nothing, 0, rbHaemophilusSD.SelectedValue)
        Datos.HepatitisBSegunda = IIf(rbHepatitisBSD.SelectedValue = Nothing, 0, rbHepatitisBSD.SelectedValue)
        Datos.VOPSegunda = IIf(rbVOPSD.SelectedValue = Nothing, 0, rbVOPSD.SelectedValue)
        Datos.DPTTercera = IIf(rbDPTTD.SelectedValue = Nothing, 0, rbDPTTD.SelectedValue)
        Datos.HaemophilusTercera = IIf(rbHaemophilusTD.SelectedValue = Nothing, 0, rbHaemophilusTD.SelectedValue)
        Datos.HepatitisBTercera = IIf(rbHepatitisBTD.SelectedValue = Nothing, 0, rbHepatitisBTD.SelectedValue)
        Datos.VOPTercera = IIf(rbVOPTD.SelectedValue = Nothing, 0, rbVOPTD.SelectedValue)
        Datos.InfluenzaPrimera = IIf(rbInfluenzaPD.SelectedValue = Nothing, 0, rbInfluenzaPD.SelectedValue)
        Datos.InfluenzaSegunda = IIf(rbInfluenzaSD.SelectedValue = Nothing, 0, rbInfluenzaSD.SelectedValue)
        Datos.SRPUnica = IIf(rbTripleViralDU.SelectedValue = Nothing, 0, rbTripleViralDU.SelectedValue)
        Datos.FAUnica = IIf(rbFiebreAmarillaDU.SelectedValue = Nothing, 0, rbFiebreAmarillaDU.SelectedValue)
        Datos.DPTPrimerRefuerzo = IIf(rbDPTPR.SelectedValue = Nothing, 0, rbDPTPR.SelectedValue)
        Datos.VOPPrimerRefuerzo = IIf(rbVOPPR.SelectedValue = Nothing, 0, rbVOPPR.SelectedValue)
        Datos.DPTSegundoRefuerzo = IIf(rbDPTSR.SelectedValue = Nothing, 0, rbDPTSR.SelectedValue)
        Datos.VOPSegundoRefuerzo = IIf(rbVOPSR.SelectedValue = Nothing, 0, rbVOPSR.SelectedValue)
        Datos.SRPRefuerzo = IIf(rbSRPR.SelectedValue = Nothing, 0, rbSRPR.SelectedValue)
        Datos.FARefuerzo = IIf(rbFiebreamarillaRef.SelectedValue = Nothing, 0, rbFiebreamarillaRef.SelectedValue)
        Datos.rbesquemavacunacion = IIf(rbesquemavacunacion.SelectedValue = Nothing, 0, rbesquemavacunacion.SelectedValue)
        Datos.ObsGenerales = IIf(txtObsSaludSexual.Text = Nothing, "", txtObsSaludSexual.Text)
        Datos.idPersona = Request.QueryString.Item("idPersona")
        Datos.idvisita = Request.QueryString.Item("idvisita")
        Try
            Using bd As New BdHogaresDataContext
                bd.Web_ModuloSaludComplementarios.InsertOnSubmit(Datos)
                bd.SubmitChanges()
                bd.registrarLog(Context.User.Identity.Name, 6, Request.CurrentExecutionFilePath)
            End Using

        Catch ex As Exception
            mensaje = "ERROR"
            Exepcion = ex.Message
        Finally
            If Not IsNothing(mensaje) Then
                Using bd As New bdSeguridadDataContext 'calcula el numero de error que sera asignado al usuario
                    Dim a = (From i In bd.web_Errores Select i.idError).Max
                    NumeroError = a.ToString
                End Using

                Using bd As New BdHogaresDataContext
                    bd.registrarLogError(Context.User.Identity.Name, 6, Request.CurrentExecutionFilePath, Exepcion) 'Guarda en la tabla web_errores la exepción
                End Using
                If Not primeravez = True Then
                    contentmsg.InnerHtml = "<script>mostrarmensaje('Error en el registro de los datos','Ha ocurrido un error guardando los datos, por favor pongase en contacto con el administrador del sistema. <br>EL NÚMERO DE SU ERROR ES:" & NumeroError.ToString + 1 & "' ,'error');</script>"
                End If

            Else
                If Not primeravez = True Then
                    contentmsg.InnerHtml = "<script>mostrarmensaje('Registro de datos exitoso','Los datos fueron guardados correctamente<br> <br><br><input id=\'Button1\' type=\'button\' value=\'Regresar\' onclick=\'redireccionar(); />','success');</script>"
                End If
            End If
        End Try
    End Sub


#End Region
#Region "Enventos controles"


    Sub actualizardatos(ByVal primeravez As Boolean)
        Using bda As New BdHogaresDataContext
            Dim Datos = (From i In bda.Web_ModuloSaludComplementarios
            Where (i.idvisita = hdIdvisita.Value And i.idPersona = hdIdPersona.Value)
                      Select i).Single()
            Datos.AntituberculosaBCG = IIf(rbBCG.SelectedIndex = "-1", 0, rbBCG.SelectedIndex + 1)
            Datos.HepatitisBReciennacido = IIf(rbHepatitisBRN.SelectedIndex = "-1", 0, rbHepatitisBRN.SelectedIndex + 1)
            Datos.DPTPrimera = IIf(rbDPTPD.SelectedIndex = "-1", 0, rbDPTPD.SelectedIndex + 1)
            Datos.HaemophilusPrimera = IIf(rbHaemophilusPD.SelectedIndex = "-1", 0, rbHaemophilusPD.SelectedIndex + 1)
            Datos.HepatitisBPrimera = IIf(rbHepatitisBPD.SelectedIndex = "-1", 0, rbHepatitisBPD.SelectedIndex + 1)
            Datos.VOPPrimera = IIf(rbVOPPD.SelectedIndex = "-1", 0, rbVOPPD.SelectedIndex + 1)
            Datos.DPTSegunda = IIf(rbDPTSD.SelectedIndex = "-1", 0, rbDPTSD.SelectedIndex + 1)
            Datos.HaemophilusSegunda = IIf(rbHaemophilusSD.SelectedIndex = "-1", 0, rbHaemophilusSD.SelectedIndex + 1)
            Datos.HepatitisBSegunda = IIf(rbHepatitisBSD.SelectedIndex = "-1", 0, rbHepatitisBSD.SelectedIndex + 1)
            Datos.VOPSegunda = IIf(rbVOPSD.SelectedIndex = "-1", 0, rbVOPSD.SelectedIndex + 1)
            Datos.DPTTercera = IIf(rbDPTTD.SelectedIndex = "-1", 0, rbDPTTD.SelectedIndex + 1)
            Datos.HaemophilusTercera = IIf(rbHaemophilusTD.SelectedIndex = "-1", 0, rbHaemophilusTD.SelectedIndex + 1)
            Datos.HepatitisBTercera = IIf(rbHepatitisBTD.SelectedIndex = "-1", 0, rbHepatitisBTD.SelectedIndex + 1)
            Datos.VOPTercera = IIf(rbVOPTD.SelectedIndex = "-1", 0, rbVOPTD.SelectedIndex + 1)
            Datos.InfluenzaPrimera = IIf(rbInfluenzaPD.SelectedIndex = "-1", 0, rbInfluenzaPD.SelectedIndex + 1)
            Datos.InfluenzaSegunda = IIf(rbInfluenzaSD.SelectedIndex = "-1", 0, rbInfluenzaSD.SelectedIndex + 1)
            Datos.SRPUnica = IIf(rbTripleViralDU.SelectedIndex = "-1", 0, rbTripleViralDU.SelectedIndex + 1)
            Datos.FAUnica = IIf(rbFiebreAmarillaDU.SelectedIndex = "-1", 0, rbFiebreAmarillaDU.SelectedIndex + 1)
            Datos.DPTPrimerRefuerzo = IIf(rbDPTPR.SelectedIndex = "-1", 0, rbDPTPR.SelectedIndex + 1)
            Datos.VOPPrimerRefuerzo = IIf(rbVOPPR.SelectedIndex = "-1", 0, rbVOPPR.SelectedIndex + 1)
            Datos.DPTSegundoRefuerzo = IIf(rbDPTSR.SelectedIndex = "-1", 0, rbDPTSR.SelectedIndex + 1)
            Datos.VOPSegundoRefuerzo = IIf(rbVOPSR.SelectedIndex = "-1", 0, rbVOPSR.SelectedIndex + 1)
            Datos.SRPRefuerzo = IIf(rbSRPR.SelectedIndex = "-1", 0, rbSRPR.SelectedIndex + 1)
            Datos.FARefuerzo = IIf(rbFiebreamarillaRef.SelectedIndex = "-1", 0, rbFiebreamarillaRef.SelectedIndex + 1)
            Datos.rbesquemavacunacion = IIf(rbesquemavacunacion.SelectedIndex = "-1", 0, rbesquemavacunacion.SelectedIndex + 1)
            Datos.ObsGenerales = txtObsSaludSexual.Text
            Datos.FechaRegistro = Now()

            Try
                Using bd As New BdHogaresDataContext
                    bda.SubmitChanges()
                    bd.registrarLog(Context.User.Identity.Name, 6, Request.CurrentExecutionFilePath)
                End Using

            Catch ex As Exception
                mensaje = "ERROR"
                Exepcion = ex.Message
            Finally
                If Not IsNothing(mensaje) Then
                    Using bd As New bdSeguridadDataContext 'calcula el numero de error que sera asignado al usuario
                        Dim a = (From i In bd.web_Errores Select i.idError).Max
                        NumeroError = a.ToString
                    End Using

                    Using bd As New BdHogaresDataContext
                        bd.registrarLogError(Context.User.Identity.Name, 6, Request.CurrentExecutionFilePath, Exepcion) 'Guarda en la tabla web_errores la exepción
                    End Using
                    If Not primeravez = True Then
                        contentmsg.InnerHtml = "<script>mostrarmensaje('Error en el registro de los datos','Ha ocurrido un error guardando los datos, por favor pongase en contacto con el administrador del sistema. <br>EL NÚMERO DE SU ERROR ES:" & NumeroError.ToString + 1 & "' ,'error');</script>"
                    End If

                Else
                    If Not primeravez = True Then
                        Response.Write("<script>alert('Los datos se han guardado de manera exitosa');</script>")
                        Response.Write("<script>var pagina = 'PersonasConsulta.aspx?idPersona=" & hdIdPersona.Value & "&idhogar=" & hdIdhogar.Value & "';window.location = pagina;</script>")


                        'contentmsg.InnerHtml = "<script>mostrarmensaje('Registro de datos exitoso','Los datos fueron guardados correctamente<br> <br><br><input id=\'Button1\' type=\'button\' value=\'Regresar\' onclick=\'redireccionar(); />','success');</script>"
                    End If
                End If
            End Try


        End Using

    End Sub
    Protected Sub btnCancelar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
        Response.Redirect("PersonasConsulta.aspx?idPersona=" & hdIdPersona.Value & "&idhogar=" & hdIdhogar.Value)
    End Sub
#End Region

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Response.Redirect("PersonasConsulta.aspx?idPersona=" & hdIdPersona.Value & "&idhogar=" & hdIdhogar.Value)
    End Sub

    Protected Sub btnGuardar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGuardar.Click
        If Page.IsValid = False Then
            Response.Write("<script>alert('Datos incompletos.')</script>")
            Exit Sub
        Else
            actualizardatos(False)
        End If
    End Sub



    Protected Sub CustomValidator1_ServerValidate(ByVal source As Object, ByVal args As System.Web.UI.WebControls.ServerValidateEventArgs) Handles CustomValidator1.ServerValidate

        Dim mensaje As New StringBuilder


        If hdmesescumplidos.Value >= 120 Then
            If rbBCG.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 1.) Antituberculosa")
            End If

            If rbHepatitisBRN.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 2.) Hepatitis B")
            End If
            If rbDPTPD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 3.) Difteria")
            End If
            If rbHaemophilusPD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 4.) Haemophilus")
            End If
            If rbHepatitisBPD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 5.) Hepatitis B")
            End If
            If rbVOPPD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 6.) Vacuna oral de polio (VOP)")
            End If

            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            If rbDPTSD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 7.) Difteria - tosferina - tétanos (DPT)")
            End If
            If rbHaemophilusSD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 8.) Haemophilus influenzae tipo b")
            End If
            If rbHepatitisBSD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 9.) Hepatitis B")
            End If
            If rbVOPSD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 10.) Vacuna oral de polio (VOP)")
            End If

            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            If rbDPTTD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 11.) Difteria - tosferina - tétanos (DPT)")
            End If
            If rbHaemophilusTD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 12.) Haemophilus influenzae tipo b")
            End If
            If rbHepatitisBTD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 13.) Hepatitis B")
            End If
            If rbVOPTD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 14.) Vacuna oral de polio (VOP)")
            End If

            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            If rbInfluenzaPD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 15.) Vacuna de influenza primera dosis")
            End If
            If rbInfluenzaSD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 15.) Vacuna de influenza segunda dosis")
            End If

            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            If rbTripleViralDU.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 16.) Triple Viral")
            End If
            If rbFiebreAmarillaDU.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 17.) Fiebre Amarilla (FA)")
            End If
            If rbDPTPR.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 18.) Difteria")
            End If
            If rbVOPPR.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 19.) Vacuna oral de polio")
            End If

            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            If rbDPTSR.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 20.) Difteria")
            End If
            If rbVOPSR.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 21.) Vacuna oral de polio")
            End If
            If rbSRPR.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 22.) Triple Viral")
            End If

            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            If rbFiebreamarillaRef.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 23.) Fiebre Amarilla (FA)")
            End If

            If mensaje.Length > 0 Then
                args.IsValid = False
                Me.CustomValidator1.ErrorMessage = mensaje.ToString()
                Me.CustomValidator1.Enabled = True
            End If
            Exit Sub
        End If

        '********************************************************************************************************************************************************************
        '********************************************************************************************************************************************************************

        If hdmesescumplidos.Value >= 60 Then
            If rbBCG.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 1.) Antituberculosa")
            End If

            If rbHepatitisBRN.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 2.) Hepatitis B")
            End If
            If rbDPTPD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 3.) Difteria")
            End If
            If rbHaemophilusPD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 4.) Haemophilus")
            End If
            If rbHepatitisBPD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 5.) Hepatitis B")
            End If
            If rbVOPPD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 6.) Vacuna oral de polio (VOP)")
            End If

            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            If rbDPTSD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 7.) Difteria - tosferina - tétanos (DPT)")
            End If
            If rbHaemophilusSD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 8.) Haemophilus influenzae tipo b")
            End If
            If rbHepatitisBSD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 9.) Hepatitis B")
            End If
            If rbVOPSD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 10.) Vacuna oral de polio (VOP)")
            End If

            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            If rbDPTTD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 11.) Difteria - tosferina - tétanos (DPT)")
            End If
            If rbHaemophilusTD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 12.) Haemophilus influenzae tipo b")
            End If
            If rbHepatitisBTD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 13.) Hepatitis B")
            End If
            If rbVOPTD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 14.) Vacuna oral de polio (VOP)")
            End If

            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            If rbInfluenzaPD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 15.) Vacuna de influenza primera dosis")
            End If
            If rbInfluenzaSD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 15.) Vacuna de influenza segunda dosis")
            End If

            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            If rbTripleViralDU.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 16.) Triple Viral")
            End If
            If rbFiebreAmarillaDU.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 17.) Fiebre Amarilla (FA)")
            End If
            If rbDPTPR.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 18.) Difteria")
            End If
            If rbVOPPR.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 19.) Vacuna oral de polio")
            End If

            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            If rbDPTSR.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 20.) Difteria")
            End If
            If rbVOPSR.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 21.) Vacuna oral de polio")
            End If
            If rbSRPR.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 22.) Triple Viral")
            End If


            If mensaje.Length > 0 Then
                args.IsValid = False
                Me.CustomValidator1.ErrorMessage = mensaje.ToString()
                Me.CustomValidator1.Enabled = True
            End If
            Exit Sub
        End If


        '********************************************************************************************************************************************************************
        '********************************************************************************************************************************************************************

        If hdmesescumplidos.Value >= 18 Then
            If rbBCG.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 1.) Antituberculosa")
            End If

            If rbHepatitisBRN.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 2.) Hepatitis B")
            End If
            If rbDPTPD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 3.) Difteria")
            End If
            If rbHaemophilusPD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 4.) Haemophilus")
            End If
            If rbHepatitisBPD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 5.) Hepatitis B")
            End If
            If rbVOPPD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 6.) Vacuna oral de polio (VOP)")
            End If

            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            If rbDPTSD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 7.) Difteria - tosferina - tétanos (DPT)")
            End If
            If rbHaemophilusSD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 8.) Haemophilus influenzae tipo b")
            End If
            If rbHepatitisBSD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 9.) Hepatitis B")
            End If
            If rbVOPSD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 10.) Vacuna oral de polio (VOP)")
            End If

            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            If rbDPTTD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 11.) Difteria - tosferina - tétanos (DPT)")
            End If
            If rbHaemophilusTD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 12.) Haemophilus influenzae tipo b")
            End If
            If rbHepatitisBTD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 13.) Hepatitis B")
            End If
            If rbVOPTD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 14.) Vacuna oral de polio (VOP)")
            End If

            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            If rbInfluenzaPD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 15.) Vacuna de influenza primera dosis")
            End If
            If rbInfluenzaSD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 15.) Vacuna de influenza segunda dosis")
            End If

            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            If rbTripleViralDU.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 16.) Triple Viral")
            End If
            If rbFiebreAmarillaDU.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 17.) Fiebre Amarilla (FA)")
            End If
            If rbDPTPR.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 18.) Difteria")
            End If
            If rbVOPPR.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 19.) Vacuna oral de polio")
            End If

            If mensaje.Length > 0 Then
                args.IsValid = False
                Me.CustomValidator1.ErrorMessage = mensaje.ToString()
                Me.CustomValidator1.Enabled = True
            End If
            Exit Sub
        End If



        '********************************************************************************************************************************************************************
        '********************************************************************************************************************************************************************

        If hdmesescumplidos.Value >= 12 Then
            If rbBCG.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 1.) Antituberculosa")
            End If

            If rbHepatitisBRN.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 2.) Hepatitis B")
            End If
            If rbDPTPD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 3.) Difteria")
            End If
            If rbHaemophilusPD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 4.) Haemophilus")
            End If
            If rbHepatitisBPD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 5.) Hepatitis B")
            End If
            If rbVOPPD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 6.) Vacuna oral de polio (VOP)")
            End If

            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            If rbDPTSD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 7.) Difteria - tosferina - tétanos (DPT)")
            End If
            If rbHaemophilusSD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 8.) Haemophilus influenzae tipo b")
            End If
            If rbHepatitisBSD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 9.) Hepatitis B")
            End If
            If rbVOPSD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 10.) Vacuna oral de polio (VOP)")
            End If

            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            If rbDPTTD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 11.) Difteria - tosferina - tétanos (DPT)")
            End If
            If rbHaemophilusTD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 12.) Haemophilus influenzae tipo b")
            End If
            If rbHepatitisBTD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 13.) Hepatitis B")
            End If
            If rbVOPTD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 14.) Vacuna oral de polio (VOP)")
            End If

            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            If rbInfluenzaPD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 15.) Vacuna de influenza primera dosis")
            End If
            If rbInfluenzaSD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 15.) Vacuna de influenza segunda dosis")
            End If

            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            If rbTripleViralDU.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 16.) Triple Viral")
            End If
            If rbFiebreAmarillaDU.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 17.) Fiebre Amarilla (FA)")
            End If

            If mensaje.Length > 0 Then
                args.IsValid = False
                Me.CustomValidator1.ErrorMessage = mensaje.ToString()
                Me.CustomValidator1.Enabled = True
            End If
            Exit Sub
        End If


        '********************************************************************************************************************************************************************
        '********************************************************************************************************************************************************************

        If hdmesescumplidos.Value >= 6 Then
            If rbBCG.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 1.) Antituberculosa")
            End If

            If rbHepatitisBRN.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 2.) Hepatitis B")
            End If
            If rbDPTPD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 3.) Difteria")
            End If
            If rbHaemophilusPD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 4.) Haemophilus")
            End If
            If rbHepatitisBPD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 5.) Hepatitis B")
            End If
            If rbVOPPD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 6.) Vacuna oral de polio (VOP)")
            End If

            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            If rbDPTSD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 7.) Difteria - tosferina - tétanos (DPT)")
            End If
            If rbHaemophilusSD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 8.) Haemophilus influenzae tipo b")
            End If
            If rbHepatitisBSD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 9.) Hepatitis B")
            End If
            If rbVOPSD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 10.) Vacuna oral de polio (VOP)")
            End If

            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            If rbDPTTD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 11.) Difteria - tosferina - tétanos (DPT)")
            End If
            If rbHaemophilusTD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 12.) Haemophilus influenzae tipo b")
            End If
            If rbHepatitisBTD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 13.) Hepatitis B")
            End If
            If rbVOPTD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 14.) Vacuna oral de polio (VOP)")
            End If

            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            If rbInfluenzaPD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 15.) Vacuna de influenza primera dosis")
            End If
            If rbInfluenzaSD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 15.) Vacuna de influenza segunda dosis")
            End If

            If mensaje.Length > 0 Then
                args.IsValid = False
                Me.CustomValidator1.ErrorMessage = mensaje.ToString()
                Me.CustomValidator1.Enabled = True
            End If
            Exit Sub
        End If

        '********************************************************************************************************************************************************************
        '********************************************************************************************************************************************************************

        If hdmesescumplidos.Value >= 4 Then
            If rbBCG.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 1.) Antituberculosa")
            End If

            If rbHepatitisBRN.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 2.) Hepatitis B")
            End If
            If rbDPTPD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 3.) Difteria")
            End If
            If rbHaemophilusPD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 4.) Haemophilus")
            End If
            If rbHepatitisBPD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 5.) Hepatitis B")
            End If
            If rbVOPPD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 6.) Vacuna oral de polio (VOP)")
            End If

            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            If rbDPTSD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 7.) Difteria - tosferina - tétanos (DPT)")
            End If
            If rbHaemophilusSD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 8.) Haemophilus influenzae tipo b")
            End If
            If rbHepatitisBSD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 9.) Hepatitis B")
            End If
            If rbVOPSD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 10.) Vacuna oral de polio (VOP)")
            End If

            If mensaje.Length > 0 Then
                args.IsValid = False
                Me.CustomValidator1.ErrorMessage = mensaje.ToString()
                Me.CustomValidator1.Enabled = True
            End If
            Exit Sub
        End If

        '********************************************************************************************************************************************************************
        '********************************************************************************************************************************************************************

        If hdmesescumplidos.Value >= 2 Then
            If rbBCG.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 1.) Antituberculosa")
            End If

            If rbHepatitisBRN.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 2.) Hepatitis B")
            End If
            If rbDPTPD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 3.) Difteria")
            End If
            If rbHaemophilusPD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 4.) Haemophilus")
            End If
            If rbHepatitisBPD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 5.) Hepatitis B")
            End If
            If rbVOPPD.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 6.) Vacuna oral de polio (VOP)")
            End If

            If mensaje.Length > 0 Then
                args.IsValid = False
                Me.CustomValidator1.ErrorMessage = mensaje.ToString()
                Me.CustomValidator1.Enabled = True
            End If
            Exit Sub
        End If

        If hdmesescumplidos.Value >= 0 Then
            If rbBCG.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 1.) Antituberculosa")
            End If

            If rbHepatitisBRN.SelectedValue = "" Then
                mensaje.AppendLine("</br>Debe responder la pregunta 2.) Hepatitis B")
            End If
           
            If mensaje.Length > 0 Then
                args.IsValid = False
                Me.CustomValidator1.ErrorMessage = mensaje.ToString()
                Me.CustomValidator1.Enabled = True
            End If
            Exit Sub
        End If
    End Sub
End Class